home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok90 / amoked1.41 / macros / bumprevision.aed next >
Text File  |  1993-11-04  |  458b  |  19 lines
  1. /* bumprevision.aed - a tool for AmokEd 1.27 */
  2.  
  3. options results
  4.  
  5. 'first top find Version. wright wright find ( ) find . right scanf %s'
  6. getval "$scanf"
  7. rev = result
  8. date = translate(date(E),".","/")
  9.  
  10. if substr(date,7,1) = "0" THEN
  11.   date =delstr(date,7,1)
  12. if substr(date,4,1) = "0" THEN
  13.   date = delstr(date,4,1)
  14. if left(date,1) = "0" THEN
  15.   date = delstr(date,1,1)
  16.  
  17. 'if m (while c<>32 del insert ('||rev+1||') right right while c<>41 del insert' date ')'
  18.  
  19.